home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 050a.dms / 050a.adf / EXAMPLE_PROGRAMS / example14.AMOS / example14.amosSourceCode
AMOS Source Code  |  1992-02-26  |  2KB  |  82 lines
  1. '================= 
  2. Rem example14.amos 
  3. '================= 
  4. 'THE SAY COMMAND 
  5.  
  6. Rem don't forget to turn up the volume 
  7.  
  8. Rem because the text I want to print is going to be more than 40 characters  
  9. Rem a line I have re-opened screen 0 to be a hires screen. The screen will 
  10. Rem now be 640 pixels across, in other words 80 characters, since there are  
  11. Rem 8 pixels to a byte (or character if you like) 640/8=80.  
  12. '----------------------------------------------------------------------------  
  13. Screen Open 0,640,256,8,Hires
  14. Flash Off : Curs Off : Hide : Paper 0 : Pen 6 : Cls 0
  15.  
  16.  
  17. Rem To keep things looking tidy I have used CENTRE instead of PRINT
  18. Rem Since the SAY isn't that crystal clear I decided to display the text 
  19. Rem on the screen at the same time.
  20. '------------------------------------------------------------------- 
  21. Centre "Hello, this is an example of the SAY command"
  22.  
  23.  
  24. Rem Can you remember why I have put the PRINT statement here?
  25. Rem take out the WAIT VBL to find out why we need it.
  26. '----------------------------------------------------------
  27. Print 
  28. Wait Vbl 
  29.  
  30.  
  31. Rem Here we go with the first bit of speech. 
  32. '-------------------------------------------   
  33. Say "Hello, this is an example of the SAY command."
  34.  
  35. Rem And here is more of the same 
  36. '--------------------------------------
  37. Centre " If you intend to use this command in your own programs,"
  38. Print 
  39. Say " If you intend to use this command in your own programs,"
  40. Centre "make sure that the narrator device is present on the disk you are using"
  41. Print 
  42. Say "Make sure that the narrator device is present on the disk you are using."
  43. Centre "This file can be found in the DEVS drawer of your Amos disk"
  44. Print 
  45. Say "This file can be found in the DEVS drawer of your Amos disk"
  46.  
  47.  
  48. Rem the set talk command let's you change the sex,mode,pitch and rate of SAY.  
  49. Rem the commas mean use the default setting for the number that would be 
  50. Rem there in it's place  
  51. '--------------------------------------------------------------------------------
  52. Centre "THIS IS A FEMALE VOICE"
  53. Print 
  54. Set Talk 1,,, : Say "THIS IS A FEMALE VOICE"
  55.  
  56.  
  57. Centre "FEMALE WITH INOTATION"
  58. Print 
  59. Set Talk 1,1,, : Say "This is a female voice with inotation"
  60.  
  61.  
  62. Centre "A SAPRANO VOICE"
  63. Print 
  64. Set Talk 0,0,320, : Say "A saprano voice"
  65.  
  66.  
  67. Centre "A DEEP VOICE"
  68. Print : Wait Vbl 
  69. Set Talk ,,65, : Say "A deep voice"
  70.  
  71.  
  72. Centre "THIS IS SLOW"
  73. Print 
  74. Set Talk ,,,40 : Say "THIS IS SLOW"
  75.  
  76.  
  77. Centre "PRESS A KEY"
  78. Say "PRESS A KEY"
  79.  
  80.  
  81. Clear Key : Wait Key 
  82. Edit